1 REM Tragabolas (H. Costa)
2 GO SUB 200
3 BORDER 7: PAPER 7: INK 0: CLS : FOR i=0 TO 20: PRINT INK 4;AT i,0;"{+8}{+8}{+8}{+8}{+8}{+8}{+8}{+8}{+8}{+8}{+8}";AT i,21;"{+8}{+8}{+8}{+8}{+8}{+8}{+8}{+8}{+8}{+8}{+8}": NEXT i
6 LET p=0
7 LET t=60
8 LET s=13
9 LET b=15
10 LET a=INT (RND*10)+11
15 LET t=t-1: IF t=-1 THEN GO TO 101
20 FOR i=1 TO 21
40 PRINT AT i,a;"."
45 PRINT AT i-1,a;" "
50 IF INKEY$="o" THEN LET b=b-1: LET s=b+1
55 IF INKEY$="p" THEN LET b=b+1: LET s=b-1
56 IF b<=11 THEN LET b=11: LET s=12
57 IF b>=20 THEN LET b=20: LET s=19
60 PRINT ;AT 20,b;"{A}"
61 PRINT AT 20,s;" "
65 IF i=20 AND a=b THEN LET p=p+1: BEEP .2,-20: GO TO 80
70 NEXT i
80 PRINT AT i-1,a;" "
85 PRINT INK 2;AT 3,1;"Puntos:";p;(" " AND p<10)
87 PRINT AT 3,30;" "
90 PRINT INK 1;AT 3,22;"Tiempo:";t
100 GO TO 10
101 FOR i=20 TO 1 STEP -2: BEEP .2,i: NEXT i
110 LET w=INT ((100*p)/60)
115 PRINT AT 10,3;"{INVERSE 1}Porcentaje de aciertos {INVERSE 0}";w;"%"
120 PRINT AT 21,4;"DESEA INTENTARLO DE NUEVO? "
125 IF INKEY$="" THEN GO TO 125
130 IF INKEY$<>"s" THEN STOP
140 GO TO 3
200 POKE USR "a"+0,BIN 00100100
210 POKE USR "a"+1,BIN 01100110
220 POKE USR "a"+2,BIN 11100111
230 POKE USR "a"+3,BIN 11100111
240 POKE USR "a"+4,BIN 11111111
250 POKE USR "a"+5,BIN 11111111
260 POKE USR "a"+6,BIN 01111110
270 POKE USR "a"+7,BIN 00111100
300 PAPER 0: BORDER 0: CLS : PRINT INK 6;AT 8,12;"TRAGABOLAS";AT 10,0;"Ud.({A}) debe,en un tiempo limite,tragarse el mayor numero de     bolitas posibles.";AT 17,8;"CONTROL: 'O' Izquierda                   'P' Derecha";AT 21,3;"{INVERSE 1}Pulsa SPACE para comenzar{INVERSE 0}"
310 IF INKEY$=" " THEN RETURN
320 GO TO 310